Valid as of 12/09/2012


//FNzzzzSS JOB (FNzzzz),'SEND RESPONSES',                 
//           REGION=4096K,MSGCLASS=A,TIME=(,20)  
/*JOBPARM CARDS=999999,LINES=9999
/*ROUTE XEQ NWR
/*PASSWORD ???????
//*
//************************************************************
//*                                                          *
//*              F A S T E R                                 *
//*     EDIT AND POST TRANSCRIPTS/RESPONSES                  *
//*                                                          *
//************************************************************
//* DELETE FILES TO BE CREATED IN NEXT STEP
//*
// EXEC IKJBATCH
//NWRISPF.SYSTSPRT DD DUMMY
//SYSIN     DD *                
DELETE 'FN.zzzz.RESPONSE.ONTO.EDITRPT'
DELETE 'FN.zzzz.RESPONSE.ONTO.SYSERRS'
/*
//************************************************************
//* PARAM CARD VALUES                                        *
//*                                                          *
//* POST A BATCH           POS 1 = ERROR FILE PROCESSING     *
//* OF RESPONSES              'P' - ERROR PRINT REPORT ONLY  *
//* TO THE DATABASE           'B' - GENERATE BOTH ERR REC    *
//*                                  FILE IN ADDITION TO     *
//*                                  PRINT REPORT            *
//************************************************************
//SRTS03 EXEC PGM=IKJEFT01
//$ORTPARM DD *
INCORE=OFF
/*
//PARAM DD *
P
//RSPFILE DD DISP=SHR,DSN=FN.zzzz.RESPONSE.ONTO.SYSTEM
//*----RSPFILE MUST BE SAME NAME AS TRANSFER OUTPUT
//EDITRPT DD DSN=FN.zzzz.RESPONSE.ONTO.EDITRPT,
//           DISP=(NEW,CATLG),UNIT=SYSDA,STORCLAS=SCFNSTD,
//           DCB=(RECFM=FB,LRECL=133,BLKSIZE=0,DSORG=PS),
//           SPACE=(TRK,(30,30),RLSE)
//SORTWK01 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTWK02 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTWK03 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTWK04 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//SORTWK05 DD UNIT=SYSDA,SPACE=(CYL,(5,5),RLSE)
//RSPERRS  DD SYSOUT=A                            /*ERROR RECORDS
//SYSOUT   DD SYSOUT=A
//SYSPRINT DD SYSOUT=A
//SYSERR   DD SYSOUT=A
//SYSUDUMP DD DUMMY
//SYSABOUT DD DUMMY
//SYSTSPRT DD DUMMY
//DSNTRACE DD DUMMY
//IGZSRTCD DD DUMMY
//SYSTSIN DD *
DSN SYSTEM(DSN)
RUN PROGRAM(SRTS03) PLAN(FNSRTS03) -
LIB('FRN.DISTRICT.LINKLIB')
END
//